home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tm / sc-setup.el.z / sc-setup.el
Encoding:
Text File  |  1998-05-21  |  1.8 KB  |  78 lines
  1. ;;;
  2. ;;; $Id: sc-setup.el,v 3.0 1995/08/26 18:37:34 morioka Exp $
  3. ;;;
  4.  
  5. (require 'emu)
  6.  
  7.  
  8. ;;; @ for Super Cite
  9. ;;;
  10.  
  11. (if (< emacs-major-version 19)
  12.     (autoload 'sc-cite-original "sc" nil t)
  13.   (autoload 'sc-cite-original    "supercite" "supercite 3.1" t)
  14.   (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
  15.   )
  16.  
  17. (setq sc-citation-leader "")
  18.  
  19. (cond ((boundp 'MULE)
  20.        ;; for MULE
  21.        (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
  22.        )
  23.       ((boundp 'NEMACS)
  24.        ;; for Nemacs
  25.        (setq sc-cite-regexp
  26.          "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
  27.        ))
  28.  
  29. (if (< emacs-major-version 19)
  30.     (progn
  31.       (defun my-sc-overload-hook ()
  32.     (require 'sc-oloads)
  33.     (sc-overload-functions)
  34.     )
  35.  
  36.       ;; @@ for all but mh-e
  37.       ;;
  38.       (setq mail-yank-hooks (function sc-cite-original))
  39.  
  40.       ;; @@ for RMAIL, PCMAIL, GNUS
  41.       ;;
  42.       (add-hook 'mail-setup-hook (function my-sc-overload-hook))
  43.  
  44.       ;; @@ for Gnus
  45.       ;;
  46.       (add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
  47.       (add-hook 'gnews-ready-hook (function my-sc-overload-hook))
  48.       
  49.       ;; @@ for mh-e
  50.       ;;
  51.       (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
  52.       (setq mh-yank-hooks 'sc-cite-original)  ; for MH-E only
  53.       )
  54.   (add-hook 'mail-citation-hook 'sc-cite-original)
  55.   (setq news-reply-header-hook nil)
  56.   )
  57.  
  58.  
  59. ;;; @ for sc-register
  60. ;;;
  61. ;; (setq sc-load-hook
  62. ;;       '(lambda ()
  63. ;;      (require 'sc-register)
  64. ;;      (setq sc-rewrite-header-list
  65. ;;        (append sc-rewrite-header-list
  66. ;;            (list (list 'sc-header-in-Japanese))
  67. ;;            ))
  68. ;;      (setq sc-preferred-header-style
  69. ;;        (- (length sc-rewrite-header-list) 1))
  70. ;;      ))
  71. (setq sc-preferred-attribution 'registeredname)
  72.  
  73.  
  74. ;;; @ end
  75. ;;;
  76.  
  77. (provide 'sc-setup)
  78.